home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / nrock.lha / NoizeRocker.amos / NoizeRocker.amosSourceCode < prev    next >
AMOS Source Code  |  1999-04-05  |  1KB  |  41 lines
  1. Request Off 
  2. Unpack 2 To 0
  3. Hide On : Set Curs 255,255,255,255,255,255,255,255 : Colour 0,$678 : Colour 1,$0
  4. Locate 2,13 : Input "Rausch-L�nge in Bytes?         ";NL
  5. Locate 2,13 : Input "Rausch-H�rte (0-128) ?         ";NE
  6. Locate 2,13 : Input "Rausch-Qualit�t? (0=bad,1=good)";KWAL
  7. Print At(2,14);"Bitte warten, Rauschen wird generiert...(juchhuu)";
  8. Shift Up 8,0,6,1
  9. If NL>Chip Free+Fast Free Then NL=Chip Free+Fast Free-128000 : If NL<64 Then NL=64
  10. If NL=0 Then NL=64
  11. Reserve As Chip Work 1,10000+NL
  12. NB=Start(1)
  13. Randomize Timer
  14. If NE>128 Then NE=128 : If NE<4 Then NE=4 : If NE=0 Then NE=1
  15. If KWAL=0
  16.    For V=0 To NL Step 4
  17.       Loke NB+V,Rnd(NE)
  18.    Next 
  19. Else If KWAL>0
  20.    For V=0 To NL
  21.       Poke NB+V,Rnd(NE)
  22.    Next 
  23. End If 
  24. Shift Off 
  25. Print At(2,15);"So h�rt sich ihr Rauschen an...(Taste)";
  26. Sam Raw 3,Start(1),NL,16875
  27. Wait Key 
  28. Sam Stop 
  29. F$="ram:noize.raw"
  30. Print At(2,16);"Und jetzt habe ich es im RAM: gespeichert...!";
  31. T$="Generated with NoizeRocker1.0"
  32. For R=1 To Len(T$)
  33.    Poke Start(1)+R-1,Asc(Mid$(T$,R,1))
  34. Next 
  35. Bsave F$,Start(1) To Start(1)+NL
  36. Print At(2,17);"Danke f�rs benutzen von NoizeRocker!";
  37. Erase 1
  38. Wait Key 
  39. Fade 1
  40. Wait 15
  41. Edit